unit URotinasBase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, DBCtrls, DBGrids;

type
  TFRotinasBase = class(TForm)
    panel2: TPanel;
    BtnExec: TBitBtn;
    ProgressBar: TProgressBar;
    pnBg: TPanel;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRotinasBase: TFRotinasBase;

implementation

{$R *.dfm}

procedure TFRotinasBase.FormKeyPress(Sender: TObject; var Key: Char);
begin

  if (key = #13) and not ((ActiveControl is TDBMemo) or (ActiveControl is TMemo) or (ActiveControl is TListBox) or (ActiveControl is TDBGrid)) then
    SelectNext(ActiveControl, true, true);

end;

end.
